<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<%
ID=request("ID")

if request("action")="doConfig" then
	if replace(trim(request("ConfigPWD")),"'","")="" then
		alert("Error:请输入密码")
		go("Admin_Setting.asp")
		response.End()
	end if
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from Admin_Setting where ConfigPWD='"&replace(trim(request("ConfigPWD")),"'","")&"' and ID=1 ",conn,1,1
		if not rs.eof then
			session("ConfigPWD")=rs("ConfigPWD")
			go("Admin_Setting.asp")
		else
			alert("Error:密码错误")
			go("Admin_Setting.asp")
		end if
	rs.close
	set rs=nothing
end if

if request("action")="quit" then
	session("ConfigPWD")=""
	go("Admin_Setting.asp")
end if

if request("action")="ModCPWD" then
	sql="update Admin_Setting set ConfigPWD='"&replace(trim(request("P2")),"'","")&"' where ID=1"
	conn.execute(sql)
	go("Admin_Setting.asp?showMsgStr=<br><b>系统后台功能参数配置密码修改成功！</b>|parent|3000|500||")
end if

if request("action")="SaveConfig" then
	Set rs=server.CreateObject("ADODB.RECORDSET")
	sql="select * from Admin_Setting where ID=1"
	rs.open sql,conn,1,3
	if rs("WatermarkPic")<>trim(request("WatermarkPic")) then call DelFile("../"&rs("WatermarkPic"))
	if rs("WatermarkBigPic")<>trim(request("WatermarkBigPic")) then call DelFile("../"&rs("WatermarkBigPic"))
	rs("NImage")=trim(request("NImage"))
	rs("NewsSubtitle")=trim(request("NewsSubtitle"))
	rs("Newspic")=trim(request("Newspic"))
	rs("NewsClassIntro")=trim(request("NewsClassIntro"))
	rs("NewsClassPic")=trim(request("NewsClassPic"))
	rs("NewsClassSD")=trim(request("NewsClassSD"))
	rs("NewsPxMethod")=trim(request("NewsPxMethod"))
	rs("PImage")=trim(request("PImage"))
	rs("Support")=trim(request("Support"))
	rs("ProductPic")=trim(request("ProductPic"))
	rs("ProductBigPic")=trim(request("ProductBigPic"))
	rs("ProductIntro")=trim(request("ProductIntro"))
	rs("ProductClassIntro")=trim(request("ProductClassIntro"))
	rs("ProductClassPic")=trim(request("ProductClassPic"))
	rs("ProductClassSD")=trim(request("ProductClassSD"))
	rs("ProductPxMethod")=trim(request("ProductPxMethod"))
	rs("SessionTimeout")=trim(request("SessionTimeout"))
	rs("EnableUploadFile")=trim(request("EnableUploadFile"))
	rs("UploadApp")=trim(request("UploadApp"))
	rs("MaxUpFileSize")=trim(request("MaxUpFileSize"))
	rs("UpFileType")=lcase(trim(request("UpFileType")))
	rs("UploadSavePath")=trim(request("UploadSavePath"))
	rs("CreateDateFloder")=trim(request("CreateDateFloder"))
	rs("DelUpFiles")=trim(request("DelUpFiles"))
	rs("Watermark")=trim(request("Watermark"))
	rs("WatermarkApp")=trim(request("WatermarkApp"))
	rs("ThumbImage")=trim(request("ThumbImage"))
	rs("ThumbImageMaxWidth")=cint(trim(request("ThumbImageMaxWidth")))
	rs("ThumbImageMaxHeight")=cint(trim(request("ThumbImageMaxHeight")))
	rs("WatermarkAddBd")=trim(request("WatermarkAddBd"))
	rs("WatermarkBdWidth")=cint(request("WatermarkBdWidth"))
	rs("WatermarkBdColor")=trim(request("WatermarkBdColor"))
	rs("WatermarkType")=cint(trim(request("WatermarkType")))
	rs("WatermarkText")=trim(trim(request("WatermarkText")))
	rs("WatermarkTextFontFamily")=trim(trim(request("WatermarkTextFontFamily")))
	rs("WatermarkTextFontSize")=trim(trim(request("WatermarkTextFontSize")))
	rs("WatermarkTextColor")=trim(trim(request("WatermarkTextColor")))
	rs("WatermarkTextOpacity")=trim(trim(request("WatermarkTextOpacity")))
	rs("WatermarkPic")=trim(request("WatermarkPic"))
	rs("WatermarkBigPic")=trim(request("WatermarkBigPic"))
	rs("WatermarkLocal")=cint(trim(request("WatermarkLocal")))
	rs("WatermarkPadingX")=cint(trim(request("WatermarkPadingX")))
	rs("WatermarkPadingY")=cint(trim(request("WatermarkPadingY")))
	rs("MailSend")=trim(request("MailSend"))
	rs("MailSendApp")=trim(request("MailSendApp"))
	rs.update
	rs.close
	set rs=nothing
	Go("Admin_Setting.asp?showMsgStr=<br><b>系统后台功能参数设置保存成功并已生效！</b>|parent|3000|500||")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>参数设置</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<link href="popUpWin.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="popupdiv.js"></script>
</head>
<body <%if session("ConfigPWD")="" then response.Write("onload='ShopConfirm()'") end if%>>
<script language="javascript" src="js/ColorPicker.js" charset="utf-8"></script>
    <div id="frame_Toolbar" class="toolbarBg"> 
		<a href="javascript:self.history.back();" class="icoBtn_ct"><span class="btnIco btnBack"></span>返回</a> 
		<a href="javascript:self.location.reload();" class="icoBtn_ct"><span class="btnIco btnReload"></span>刷新</a> 
		<span class="split ftSplit" ></span>
	    <div id="guide">
		<%if session("ConfigPWD")<>"" then%>
			<a href="#" onClick="ShopMODP()">修改配置密码</a>
			&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
			<a href="?action=quit">退出</a>
		<%end if%>
		</div>
    </div>
	<div id="MainContent">
<%
if session("ConfigPWD")="" then
response.Write("对不起，您还有权限进入！该区域使用于本系统参数设置，与客户无关！谢谢合作！")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Admin_Setting where ID=1"
rs.open sql,conn,1,1
%>
<form method="POST" id="frmMail" name="frmMail" action="?action=SaveConfig">
   <table cellpadding="4" class="cTable_2 table">
		<tr class="cTitle toolbarBg">
		   <td colspan="2"><div class="cLeftPadding">后台功能参数设置</div></td>
		</tr>
		<tr>
		  <td colspan="2" bgcolor="#f5f5f5"><div class="light_bOrange" style="padding:3px 15px">文章设置选项 &gt;&gt;</div></td>
	    </tr>
		<tr>
		  <td align="right">新闻图片库：</td>
		  <td><input type="radio" name="NImage" <%if rs("NImage")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="NImage" <%if rs("NImage")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">新闻副标题：</td>
		  <td><input type="radio" name="NewsSubtitle" <%if rs("NewsSubtitle")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="NewsSubtitle" <%if rs("NewsSubtitle")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">新闻小图：</td>
		  <td><input type="radio" name="Newspic" <%if rs("Newspic")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="Newspic" <%if rs("Newspic")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">新闻类别简介：</td>
		  <td><input type="radio" name="NewsClassIntro" <%if rs("NewsClassIntro")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="NewsClassIntro" <%if rs("NewsClassIntro")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">新闻类别图片：</td>
		  <td><input type="radio" name="NewsClassPic" <%if rs("NewsClassPic")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="NewsClassPic" <%if rs("NewsClassPic")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">新闻类别级别深度：</td>
		  <td><select name="NewsClassSD">
		      <option value="0" <%if rs("NewsClassSD")=0 then response.Write("selected") end if%>>0级</option>
		      <option value="1" <%if rs("NewsClassSD")=1 then response.Write("selected") end if%>>1级</option>
		      <option value="2" <%if rs("NewsClassSD")=2 then response.Write("selected") end if%>>2级</option>
		      <option value="3" <%if rs("NewsClassSD")=3 then response.Write("selected") end if%>>3级</option>
		    </select>		  </td>
	  </tr>
		<tr>
		  <td align="right">新闻排序方式：</td>
		  <td>
		  <select name="NewsPxMethod">
			  <option value="id asc"  <%if rs("NewsPxMethod")="id asc" then response.Write("selected")%> >ID↑</option>
			  <option value="id desc" <%if rs("NewsPxMethod")="id desc" then response.Write("selected")%> >ID↓</option>
			  <option value="adddate asc"  <%if rs("NewsPxMethod")="adddate asc" then response.Write("selected")%> >时间↑</option>
			  <option value="adddate desc" <%if rs("NewsPxMethod")="adddate desc" then response.Write("selected")%> >时间↓</option>
			  <option value="px asc"  <%if rs("NewsPxMethod")="px asc" then response.Write("selected")%> >手动↑</option>
			  <option value="px desc" <%if rs("NewsPxMethod")="px desc" then response.Write("selected")%> >手动↓</option>
			  <option value="px desc,id desc" <%if rs("NewsPxMethod")="px desc,id desc" then response.Write("selected")%> >手动↓,ID↓</option>
			  <option value="px desc,adddate desc" <%if rs("NewsPxMethod")="px desc,adddate desc" then response.Write("selected")%> >手动↓,时间↓</option>
			  <option value="px asc,id desc" <%if rs("NewsPxMethod")="px asc,id desc" then response.Write("selected")%> >手动↑,ID↓</option>
			  <option value="px asc,adddate desc" <%if rs("NewsPxMethod")="px asc,adddate desc" then response.Write("selected")%> >手动↑,时间↓</option>
			  <option value="px desc,id asc" <%if rs("NewsPxMethod")="px desc,id asc" then response.Write("selected")%> >手动↓,ID↑</option>
			  <option value="px desc,adddate asc" <%if rs("NewsPxMethod")="px desc,adddate asc" then response.Write("selected")%> >手动↓,时间↑</option>
			  <option value="px asc,id asc" <%if rs("NewsPxMethod")="px asc,id asc" then response.Write("selected")%> >手动↑,ID↑</option>
			  <option value="px asc,adddate asc" <%if rs("NewsPxMethod")="px asc,adddate asc" then response.Write("selected")%> >手动↑,时间↑</option>
		    </select>		  </td>
	  </tr>
		<tr>
		  <td align="right">产品图片库：</td>
		  <td><input type="radio" name="PImage" <%if rs("PImage")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="PImage" <%if rs("PImage")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品技术参数：</td>
		  <td><input type="radio" name="Support" <%if rs("Support")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="Support" <%if rs("Support")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品小图：</td>
		  <td><input type="radio" name="ProductPic" <%if rs("ProductPic")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="ProductPic" <%if rs("ProductPic")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品大图：</td>
		  <td><input type="radio" name="ProductBigPic" <%if rs("ProductBigPic")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="ProductBigPic" <%if rs("ProductBigPic")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品简介：</td>
		  <td><input type="radio" name="ProductIntro" <%if rs("ProductIntro")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="ProductIntro" <%if rs("ProductIntro")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品类别简介：</td>
		  <td><input type="radio" name="ProductClassIntro" <%if rs("ProductClassIntro")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="ProductClassIntro" <%if rs("ProductClassIntro")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品类别图片：</td>
		  <td><input type="radio" name="ProductClassPic" <%if rs("ProductClassPic")=True then response.Write("checked")%> value="True">
		    开启
	          &nbsp;<input type="radio" name="ProductClassPic" <%if rs("ProductClassPic")=False then response.Write("checked")%> value="False">
          关闭</td>
	  </tr>
		<tr>
		  <td align="right">产品类别级别深度：</td>
		  <td><select name="ProductClassSD">
		      <option value="0" <%if rs("ProductClassSD")=0 then response.Write("selected") end if%>>0级</option>
		      <option value="1" <%if rs("ProductClassSD")=1 then response.Write("selected") end if%>>1级</option>
		      <option value="2" <%if rs("ProductClassSD")=2 then response.Write("selected") end if%>>2级</option>
		      <option value="3" <%if rs("ProductClassSD")=3 then response.Write("selected") end if%>>3级</option>
		      <option value="4" <%if rs("ProductClassSD")=4 then response.Write("selected") end if%>>4级</option>
		      <option value="5" <%if rs("ProductClassSD")=5 then response.Write("selected") end if%>>5级</option>
		    </select>		  </td>
	  </tr>
		<tr>
		  <td align="right">产品排序方式：</td>
		  <td><select name="ProductPxMethod">
			  <option value="id asc"  <%if rs("ProductPxMethod")="id asc" then response.Write("selected")%> >ID↑</option>
			  <option value="id desc" <%if rs("ProductPxMethod")="id desc" then response.Write("selected")%> >ID↓</option>
			  <option value="adddate asc"  <%if rs("ProductPxMethod")="adddate asc" then response.Write("selected")%> >时间↑</option>
			  <option value="adddate desc" <%if rs("ProductPxMethod")="adddate desc" then response.Write("selected")%> >时间↓</option>
			  <option value="px asc"  <%if rs("ProductPxMethod")="px asc" then response.Write("selected")%> >手动↑</option>
			  <option value="px desc" <%if rs("ProductPxMethod")="px desc" then response.Write("selected")%> >手动↓</option>
			  <option value="px desc,id desc" <%if rs("ProductPxMethod")="px desc,id desc" then response.Write("selected")%> >手动↓,ID↓</option>
			  <option value="px desc,adddate desc" <%if rs("ProductPxMethod")="px desc,adddate desc" then response.Write("selected")%> >手动↓,时间↓</option>
			  <option value="px asc,id desc" <%if rs("ProductPxMethod")="px asc,id desc" then response.Write("selected")%> >手动↑,ID↓</option>
			  <option value="px asc,adddate desc" <%if rs("ProductPxMethod")="px desc,adddate desc" then response.Write("selected")%> >手动↑,时间↓</option>
			  <option value="px desc,id asc" <%if rs("ProductPxMethod")="px desc,id asc" then response.Write("selected")%> >手动↓,ID↑</option>
			  <option value="px desc,adddate asc" <%if rs("ProductPxMethod")="px desc,adddate asc" then response.Write("selected")%> >手动↓,时间↑</option>
			  <option value="px asc,id asc" <%if rs("ProductPxMethod")="px asc,id asc" then response.Write("selected")%> >手动↑,ID↑</option>
			  <option value="px asc,adddate asc" <%if rs("ProductPxMethod")="px asc,adddate asc" then response.Write("selected")%> >手动↑,时间↑</option>
		    </select>	      </td>
	  </tr>
		<tr>
		  <td colspan="2" bgcolor="#f5f5f5"><div class="light_bOrange" style="padding:3px 15px">登入设置 &gt;&gt;</div></td>
	    </tr>
		<tr>
		  <td align="right">session身份过期：</td>
		  <td><input name="SessionTimeout" type="text" value="<%=rs("SessionTimeout")%>">
		    分钟</td>
	  </tr>
		<tr>
		  <td colspan="2" bgcolor="#f5f5f5"><div class="light_bOrange" style="padding:3px 15px">上传设置选项 &gt;&gt;</div></td>
	    </tr>
		<tr>
		  <td align="right">上传文件功能：</td>
		  <td><input type="radio" name="EnableUploadFile" <%if rs("EnableUploadFile")=True then response.Write("checked")%> value="True" onClick="UploadAppSpan.style.display=''">
开启
	          &nbsp;
	          <input type="radio" name="EnableUploadFile" <%if rs("EnableUploadFile")=False then response.Write("checked")%> value="False" onClick="UploadAppSpan.style.display='none'">
关闭
        <span id="UploadAppSpan" style="display:<%if rs("EnableUploadFile")=False then response.Write("none")%>">
		   <select name="UploadApp">
		      <option value="0">== 请选择应用组件 ==</option>
		      <option value="1" <%if rs("UploadApp")=1 then response.Write("selected")%>>化境HTTP无组件上传程序</option>
		      <option value="2" <%if rs("UploadApp")=2 then response.Write("selected")%>>艾恩无组件上传类</option>
		      <option value="3" <%if rs("UploadApp")=3 then response.Write("selected")%>>AspUpload上传组件</option>
		    </select>
		</span>		</td>
	  </tr>
		<tr>
		  <td align="right">允许上传文件大小：</td>
		  <td><input name="MaxUpFileSize" type="text" value="<%=rs("MaxUpFileSize")%>">
		    Kb</td>
	  </tr>
		<tr>
		  <td align="right">允许上传文件类型：</td>
		  <td><input name="UpFileType" type="text" style="width:550px" value="<%=rs("UpFileType")%>">
		    <br>
		    （文件后缀名请用“|”区分，开头与结尾不可是“|”，小写字母，范例：&nbsp; gif|jpg|bmp|png&nbsp; ）</td>
	  </tr>
		<tr>
		  <td align="right">上传文件保存路径：</td>
		  <td><input name="UploadSavePath" type="text" value="<%=rs("UploadSavePath")%>"> 
		  是否按日期建立子目录
		  <input type="radio" name="CreateDateFloder" <%if rs("CreateDateFloder")=True then response.Write("checked")%> value="True">是
		  <input type="radio" name="CreateDateFloder" <%if rs("CreateDateFloder")=False then response.Write("checked")%> value="False">否		  </td>
	  </tr>
		<tr>
		  <td align="right">删除文章时是否删除上传文件：</td>
		  <td><input type="radio" name="DelUpFiles" <%if rs("DelUpFiles")=True then response.Write("checked")%> value="True">
开启
	          &nbsp;
	          <input type="radio" name="DelUpFiles" <%if rs("DelUpFiles")=False then response.Write("checked")%> value="False">
关闭</td>
	  </tr>
		<tr>
		  <td colspan="2" bgcolor="#f5f5f5"><div class="light_bOrange" style="padding:3px 15px">图片处理设置选项 &gt;&gt;</div></td>
	    </tr>
		<tr>
		  <td align="right">图片处理：</td>
		  <td>
		      <input type="radio" name="Watermark" <%if rs("Watermark")=True then response.Write("checked")%> value="True" onClick="WatermarkAppSpan.style.display=''">
开启
	          &nbsp;
	          <input type="radio" name="Watermark" <%if rs("Watermark")=False then response.Write("checked")%> value="False" onClick="WatermarkAppSpan.style.display='none'">
关闭
          <span id="WatermarkAppSpan" style="display:<%if rs("Watermark")=False then response.Write("none")%>"> 
		   <select name="WatermarkApp">
		      <option value="0">== 请选择应用组件 ==</option>
		      <option value="1" <%if rs("WatermarkApp")=1 then response.Write("selected")%>>AspJpeg组件</option>
		    </select>
			</span>
		  </td>
		</tr>
		<tr>
		  <td align="right">是否生成缩略图：</td>
		  <td>
		      <input type="radio" name="ThumbImage" <%if rs("ThumbImage")=True then response.Write("checked")%> value="True" onClick="ThumbImageSpan.style.display=''">
开启
	          &nbsp;
	          <input type="radio" name="ThumbImage" <%if rs("ThumbImage")=False then response.Write("checked")%> value="False" onClick="ThumbImageSpan.style.display='none'">
关闭
          <div id="ThumbImageSpan" style="display:<%if rs("ThumbImage")=False then response.Write("none")%>"> 
		   缩略图最大宽高：<input type="text" size="8" name="ThumbImageMaxWidth" value="<%=rs("ThumbImageMaxWidth")%>"> × <input type="text" size="8" name="ThumbImageMaxHeight" value="<%=rs("ThumbImageMaxHeight")%>"> px
		  </div>
		  </td>
		</tr>
		<tr>
		  <td align="right">图片是否加边框：</td>
		  <td>
		   <input type="radio" name="WatermarkAddBd" <%if rs("WatermarkAddBd")=True then response.Write("checked")%> value="True" onClick="WatermarkAddBdSpan.style.display=''">是
		   <input type="radio" name="WatermarkAddBd" <%if rs("WatermarkAddBd")=False then response.Write("checked")%> value="False" onClick="WatermarkAddBdSpan.style.display='none'">否
		   <div id="WatermarkAddBdSpan" style="display:<%if rs("WatermarkAddBd")=False then response.Write("none")%>"> 
		   边框粗细：<input type="text" name="WatermarkBdWidth" value="<%=rs("WatermarkBdWidth")%>">px<br>
		   边框颜色：<input type="text" name="WatermarkBdColor" id="WatermarkBdColor" value="<%=rs("WatermarkBdColor")%>"><script>CreateCPBtn('WatermarkBdColor');</script>
		   </div>
		  </td>
	    </tr>
		<tr>
		  <td align="right">水印类型：</td>
		  <td>
		  <select name="WatermarkType">
		    <option value="0">== 水印类型选择 ==</option>
		    <option value="1" <%if rs("WatermarkType")=1 then response.Write("selected")%>>文字水印</option>
		    <option value="2" <%if rs("WatermarkType")=2 then response.Write("selected")%>>图片logo水印</option>
		  </select>
		  </td>
	    </tr>
		<tr>
		  <td align="right">文字水印参数：</td>
		  <td>
		    内容：<input type="text" name="WatermarkText" value="<%=rs("WatermarkText")%>"><br>
		    字体：<input type="text" name="WatermarkTextFontFamily" value="<%=rs("WatermarkTextFontFamily")%>"><br>
		    大小：<input type="text" name="WatermarkTextFontSize" value="<%=rs("WatermarkTextFontSize")%>">px<br>
		    颜色：<input type="text" name="WatermarkTextColor" id="WatermarkTextColor" value="<%=rs("WatermarkTextColor")%>"><script>CreateCPBtn('WatermarkTextColor');</script><br>
		    透明：<input type="text" name="WatermarkTextOpacity" value="<%=rs("WatermarkTextOpacity")%>"><br>
		  </td>
	    </tr>
		<tr>
		  <td align="right">图片Logo水印：</td>
		  <td>
			<span style="float:left">小图水印Logo：<input type="text" name="WatermarkPic" id="WatermarkPic" value="<%=rs("WatermarkPic")%>"></span><span style="float:left"><iframe src="Upload_form_lt.asp?n=WatermarkPic&x=1" height="25" width="320" frameborder="0"></iframe></span>
			<br class="clear">
			<span style="float:left">大图水印Logo：<input type="text" name="WatermarkBigPic" id="WatermarkBigPic" value="<%=rs("WatermarkBigPic")%>"></span><span style="float:left"><iframe src="Upload_form_lt.asp?n=WatermarkBigPic&x=1" height="25" width="320" frameborder="0"></iframe></span>
			</td>
	    </tr>
		<tr>
		  <td align="right">水印位置：</td>
		  <td>
		    位置选择：
		  <select name="WatermarkLocal">
		    <option value="0">== 水印位置选择 ==</option>
		    <option value="1" <%if rs("WatermarkLocal")=1 then response.Write("selected")%>>左上</option>
		    <option value="2" <%if rs("WatermarkLocal")=2 then response.Write("selected")%>>左下</option>
		    <option value="3" <%if rs("WatermarkLocal")=3 then response.Write("selected")%>>右上</option>
		    <option value="4" <%if rs("WatermarkLocal")=4 then response.Write("selected")%>>右下</option>
		    <option value="5" <%if rs("WatermarkLocal")=5 then response.Write("selected")%>>居中</option>
		  </select>
		  <br>
			相对于水印左上角的水平方向差距：<input type="text" name="WatermarkPadingX" value="<%=rs("WatermarkPadingX")%>">px<br>
		    相对于水印左上角的垂直方向差距：<input type="text" name="WatermarkPadingY" value="<%=rs("WatermarkPadingY")%>">px<br>
		  </td>
	    </tr>
		<tr>
		  <td colspan="2" bgcolor="#f5f5f5"><div class="light_bOrange" style="padding:3px 15px">邮件设置选项 &gt;&gt;</div></td>
	    </tr>
		<tr>
		  <td align="right">邮件发送功能：</td>
		  <td><input type="radio" name="MailSend" <%if rs("MailSend")=True then response.Write("checked")%> value="True" onClick="MailSendAppSpan.style.display=''">
开启
	          &nbsp;
	          <input type="radio" name="MailSend" <%if rs("MailSend")=False then response.Write("checked")%> value="False" onClick="MailSendAppSpan.style.display='none'">
关闭
          <span id="MailSendAppSpan" style="display:<%if rs("MailSend")=False then response.Write("none")%>"> 
		   <select name="MailSendApp">
		      <option value="0">== 请选择应用组件 ==</option>
		      <option value="1" <%if rs("MailSendApp")=1 then response.Write("selected")%>>Jmail组件</option>
		      <option value="2" <%if rs("MailSendApp")=2 then response.Write("selected")%>>AspEmail组件</option>
		      <option value="3" <%if rs("MailSendApp")=3 then response.Write("selected")%>>CDO组件</option>
		    </select>
			<a href="Mail_Setting.asp" class="light_orange">点击进入详细信息配置</a>
		  </span>		  </td>
	  </tr>
	</table> 
    <div id="cEndToolbar" class="toolbarBg">
      <div class="caButCase">
	  <input type="submit" name="btnSubmitMail" value="确 定" class="button" />
      </div>
    </div>
	<p>&nbsp;</p>
	<p>&nbsp;</p>
</form>
<%
rs.close
Set rs=nothing
end if
%>
	</div>
	
<!--内容层--> 
<div id="ShopConfirmLayer" style="background-color:#FFFFFF;border:1px #cccccc solid;width:274px; top:250px" class="hidden"> 
	<div id="ShopConfirmContent" style="padding: 0px 12px 12px 12px">
		<form  style="display:none" method="POST" id=formPX1 name="formPX1" action="?action=doConfig">
		<table cellspacing="0" cellpadding="0" border="0">
			<tr>
				<td height="40" colspan="2"><b>请输入配置密码</b></td>
			</tr>
			<tr>
				<td width="190">
				<input name="ConfigPWD" type="password" style="border:1px solid #CCCCCC; width:180px">
				</td>
				<td>
				<input type="submit" style="border:1px solid #CCCCCC; background-color:#efefef" value="确认">
				</td>
			</tr>
			<tr>
				<td height="12" colspan="2"></td>
			</tr>
		</table>
		</form>
		<form style="display:none" method="POST" id=formPX2 name="formPX2" action="?action=ModCPWD" onSubmit="return checkModCP()">
		<table cellspacing="0" cellpadding="0" border="0">
			<tr>
				<td height="40"><b>修改配置密码</b></td>
				<td height="40" align="right"><a href="#" onClick="POPUP.cw('ShopConfirmLayer');" style="background-color:#CCCCCC; padding-left:5px; padding-right:5px; padding-bottom:2px;"><b>×</b></a></td>
			</tr>
			<tr>
				<td height="25">新 密 码</td>
				<td>
				<input name="P1" type="password" style="border:1px solid #CCCCCC; width:150px">
				</td>
			  </tr>
			<tr>
				<td height="25">确认密码</td>
				<td>
				<input name="P2" type="password" style="border:1px solid #CCCCCC; width:150px">
				</td>
			  </tr>
			  <tr>	
				<td>
				</td>
				<td>
				<input type="submit" style="border:1px solid #CCCCCC; background-color:#efefef" value="确认修改">
				</td>
			</tr>
			<tr>
				<td height="12"></td>
			</tr>
		</table>
		</form>
	</div>
</div> 
<!--覆盖层--> 
<script type="text/javascript"> 
function ShopConfirm()
{ 
    document.all.formPX1.style.display="block";
	POPUP.pw('ShopConfirmLayer');
}
function ShopMODP()
{ 
    document.all.formPX2.style.display="block";
	POPUP.pw('ShopConfirmLayer');
}
function checkModCP()
{
 if(document.formPX2.P1.value=="")
 {
  alert("请输入新密码");
  return false;
 }
 if(document.formPX2.P2.value=="")
 {
  alert("请输入确认密码");
  return false;
 }
}
</script> 
</body>
</html>